unit ufrmcomm_selbumyuang;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ufrmdbselectbase, frxExportXLS, frxClass, frxExportPDF, Menus,
  UpPopupMenu, frxDesgn, frxDBSet, UpDataSource, DB, ADODB, UpAdoTable,
  UpAdoQuery, Grids, Wwdbigrd, Wwdbgrid, UpWWDbGrid, StdCtrls, UpEdit,
  UpLabel, ToolPanels, UpAdvToolPanel, Buttons, UpSpeedButton, ExtCtrls,
  UPanel;

type
  Tfrmselbumyuang = class(Tfrmdbselectbase)
    procedure edtseljianpKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

{
var
  frmselbumyuang: tfrmselbumyuang;
}
implementation

{$R *.dfm}

procedure Tfrmselbumyuang.edtseljianpKeyPress(Sender: TObject;
  var Key: Char);
begin
  inherited;

  if key='''' then
  begin
    key:= chr(0);
    exit;
  end;
end;

end.
